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MODULE PASSFV uty ( Bt} ‘File Variable OUTFUT' . 
IDENT ! File: PASFVOUTP.B32 Edit: SBL1001 


PASRTL.SRC PASFVOUTP. fe 2;1 


BEGIN 


RARER ARETE EERE RARER EAE ET ETE EAE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


® 
® 
® 
® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR NANY. OTHER = 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
& 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
it CORPORATION. , 
® 
® 
ot 
® 
*® 
® 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PTTITITILITIL LILLIE LILI LLL Li T iti itititittit 
! 

oe 

FACILITY: VAX=-11 Pascal Run-Time Library 

ABSTRACT: 

i This module contains the global Pascal File Variable OUTPUT (PFY), 
i along with its associated Pascal File Descriptor (PFD) block. 

i This variable is referenced by VAX-11 Pascal programs as the 

file OUTPUT. 

ENVIRONMENT: Contains no code. 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

MODIFIED BY: 

i 1-001 - Original. SBL 1-April-1981 
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PASSFV_OUTPUT ile Variable OUTPUT 18-Se 1984 01:37:04 AX-11 Bliss-32 V4.0-74 P 
1-001 eclarations ae 5:87:95 PASRTL.SRCJPASFVOUTP.B32;1 — (23 
07 $9 1 NODEFAULT = _PASS$SFILE_VARS (READ, WRITE, NOEXECUTE, NOSHARE, PIC, 
08 0 ADDRESSING_MODE (LONG_RELATIVE)); 


GLOBAL 
one: 1 i SPASSPFV_FILE_VARIABLE PSECT (_PASSSFILE_VARS) 


PFVSB_VERSION] = PFV$K_CUR_VERSION, 
PFVSV-RELPFD] = 
PFVS J = (PFD_OUTPUT - PASSFV_OUTPUT), 


FVSA_PFD 
PFV$V_RELBUF J . 
(BUFFER_OUTPUT = PASSFV_OUTPUT) 


PF VS$A~BUFFERJ 


‘4 
: Define enough bytes of storage space to pad PASSFV_OUTPU™ to 32 bytes. 

! This is so that it can be expanded to 32 bytes without affecting its 
location in the vector. 


OWN 
PAD_SPACE: VECTOR (32=PFVSK_SIZE, BYTE] PSECT (_PASS$SFILE_VARS); 


END End of module PAS$FV_OUTPUT 
ELUDOM | 
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TITLE 
- IDENT 
~PSECT 

00000000* 00000 PASSFV_OUTPUT:: 

00 00004 “BYTE 

00# 00005 “BYTE 

18 00007 “BYTE 

00000000* 00008 “LONG 
0000 LK 


-BLKB 
00010 PAD_SPACE: 
.BLKB 


.PSECT 
00000 BUFFER_OUTPUT: 
-BLKB 


»PSECT 
00# 00000 PFD_OUTPUT: 
-BYTE 
61 00004 -BYTE 
gee 0005 -BYTE 
00000001 00008 - LONG 
54 55 50 54 55 4F 06 0000C -BYTE 


PASSFV_OUTPUT File Variable OUTPUT 
\1-001% 


_PASSSFILE_VARS,NOEXE, PIC,2 


<BUF FER_OUTPUT=PAS$F V_OUTPUT> 
0C2) 
+ il tata di 


16 

_PASSDATA,NOEXE, PIC,2 

1 

_PASSCODE,NOWRT, SHR, PIC,2 
004] 

97 

03] 

6, 79, 85, 84, 80, 85, 84 
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16-Sep-1984 01: AX=11 Bliss-32_v4.0-7 Page 4 
1e=88p-1984 12:51:50 EBASRTLSRESPASFYOUTP.652; 1 om 23 


PSECT SUMMARY 


; Name Bytes Attributes 
: “PASSCODE 19 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, rg tet 
3 AS$D 1 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; ~pASSSt Ice VARS 32 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
| 
: Library Statistics 
Bp es Sy ah ema Syabols sconeose Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28:(CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
; ~$255$DUA28:CPASRTL. OBJIPASLIB. L32;1 427 43 10 33 00:00.4 
| 
4 COMMAND QUALIFIERS | 
; SL SSSPEMECE OS? CELR. SET EAL PT CNEL I /UOTRACE AL SEe8 ESS SPREE VEUTP POR IOORIS PAS? YOUTP MSRC$:PASF VOUTP/UPDATE=(ENHS$:PASF VOUTP 


Elapsed Time: 00:17.2 
Lines/CPU Min: 3154 
Lexemes/CPU-Min: 14097 
—- Used: 36 pages 
ation Complete 


Size: : 0 code ; 32 data bytes | 
| 
| 
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